mp <- qr_code("derekmichaelwright.github.io/dblogr", ecl = "M")
mp <- add_logo(mp, "logo_dblogr.png", ecl = "L", hjust = "r", vjust = "b")
generate_svg(mp, "QR_dblogr.svg")
# Convert to png
rsvg::rsvg_png("QR_dblogr.svg", "QR_dblogr.png", width = 512, height = 512)

mp <- qr_code("knowpulse.usask.ca", ecl = "M")
mp <- add_logo(mp, "logo_knowpulse.png", ecl = "L", hjust = "r", vjust = "b")
generate_svg(mp, "QR_knowpulse.svg")
# Convert to png
rsvg::rsvg_png("QR_knowpulse.svg", "QR_knowpulse.png", width = 512, height = 512)

custom_create_PDF(name = "myLabes_QRCodes",
                  Labels = myLabels$Plot,
                  alt_text = paste0("Plot:", myLabels$Plot,
                                    "\n", myLabels$Expt, 
                                    "\n", myLabels$Entry),
                  denote = c("",""), replace_label = T,
                  type = "matrix", numrow = 10, numcol = 3)

custom_create_PDF(name = "myLabels_BarCodes", 
                  Labels = myLabels$Plot, 
                  alt_text = paste("Plot:", myLabels$Plot), 
                  denote = c("",""), replace_label = T,
                  type = "linear", numrow = 10, numcol = 3)

custom_create_PDF(name = "myLabes_dblogr",
                  Labels = rep("derekmichaelwright.github.io/dblogr", 30),
                  alt_text = rep("www.dblogr.com/", 30),
                  denote = c("",""), replace_label = T,
                  type = "matrix", numrow = 10, numcol = 3)